home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.bin / More Information / Informed Manager / Informed Manager™ / Informed Manager™.rsrc / PREC_103 < prev    next >
Text File  |  1992-09-21  |  889b  |  11 lines
  1. userdict/md known {md/setTxMode known {/informMode md/setTxMode get def} {/setTxMode {} def /informMode {} def} ifelse}
  2.     {/setTxMode {} def /informMode {} def} ifelse
  3. /TS {1 eq {userdict/md known {/setTxMode {currentgray 3 1 roll informMode setgray} def} {} ifelse}
  4.     {userdict/md known {/setTxMode md/informMode get def} {} ifelse} ifelse} bind def
  5. /SG {1 eq {1 eq {/g exch def currentgray g 1000 div setgray} {/g exch def currentgray g 100 div setgray} ifelse} {setgray} ifelse} bind def
  6. /ST {1 eq {1 16 div dup scale} {16 16 scale} ifelse} bind def
  7. /SLPI {/lpi exch def currentscreen 3 -1 roll pop lpi 3 1 roll setscreen} bind def
  8. /RE {newpath 2 index 5 index add 4 index moveto dup 4 index lineto 1 index lineto 1 index exch lineto exch lineto pop closepath} bind def
  9. /SW {0.02 setlinewidth} bind def
  10. /ML {gsave 0 setlinecap setlinewidth newpath moveto lineto stroke grestore} bind def
  11.